10 ' Сумма цифр числа 20 INPUT "Введи целое число не более 10000"; A 30 IF A <> FIX(A) OR A < 0 OR A > 10000 THEN 20 40 S = 0: B = A 50 WHILE A <> 0 60 C = A MOD 10 70 S = S + C 80 A = A \ 10 90 WEND 100 PRINT "Сумма цифр введенного числа равна"; S 110 PRINT "Разность между числом и суммой его цифр равна"; B - S 120 END